home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / pdsoft / demo_library / 4521.lha / BoulderD舖h / Install / BoulderD舖h.install next >
Text File  |  1995-09-26  |  9KB  |  307 lines
  1. ; $VER: BoulderDäsh.install 1.00 (11.9.95)
  2. ; Script to install BoulderDäsh
  3. ;
  4. (complete 0)
  5.  
  6. ; Install script for BoulderDäsh (Workbench 2.0 or higher)
  7.  
  8. (set old_level @user-level)
  9.  
  10. (set SourceRoot "/")
  11. ;=============================================================================
  12. ; German strings
  13.  
  14. (if (= @language "deutsch")
  15. (
  16. (set default_lang 2)
  17.  
  18. (set #bad-kick "Sie benötigen Workbench 2.0 oder größer")
  19.  
  20. (set #BoulderDäsh-InstallMsg
  21. (cat "\n\BoulderDäsh Installationsskript.\n"
  22.         "Diese Skript installiert BoulderDäsh auf Ihrem Amiga.\n\n"
  23.         "Lesen Sie das Anleitungs-File für weitere Informationen\n"
  24.         " über den Vertrieb von BoulderDäsh.\n\n"
  25.         "BoulderDäsh © 1995 Guido Mersmann\n"
  26.         "All Rechte reserviert."
  27. ))
  28.  
  29. (set #BoulderDäsh-Where
  30. (cat "Wo möchten Sie BoulderDäsh installieren ?\n"
  31.         "(Ein Verzeichnis wird angelegt)"
  32. ))
  33.  
  34. (set #BoulderDäsh-Update
  35. (cat "\nEin BoulderDäsh-Verzeichnis existiert im ausgewählen"
  36.         " Verzeichnis. Wenn Sie fortfahren,"
  37.         " bestätigen Sie, daß Sie die alte BoulderDäsh-Installation"
  38.         " mit der neuesten Version updaten wollen.\n"
  39.         "Verschiedene BoulderDäsh-Dateien (z.B Prefs) werden überschrieben!"
  40. ))
  41.  
  42. (set #BoulderDäsh-copying-Main "\nKopiere BoulderDäsh nach BoulderDäsh/...")
  43. (set #BoulderDäsh-copying-Catalogs "\nKopiere Kataloge nach ...BoulderDäsh/Locale/...")
  44. (set #BoulderDäsh-copying-Caves "\nKopiere Level nach ...BoulderDäsh/Caves/...")
  45. (set #BoulderDäsh-copying-Games "\nKopiere Spiele nach ...BoulderDäsh/Games/...")
  46. (set #BoulderDäsh-copying-Scores "\nKopiere Scores nach ...BoulderDäsh/Scores/...")
  47. (set #BoulderDäsh-copying-Graphics "\nKopiere Grafiken nach ...BoulderDäsh/Graphics/...")
  48.  
  49. (set #BoulderDäsh-Language "\nWelche Sprachen sollen installiert werden ?")
  50.  
  51. (set #BoulderDäsh-Language-help
  52. (cat "\nDer Amiga kann in vielen verschiedenen Sprachen"
  53.          " arbeiten. Um Plattenkapazität zu sparen können Sie"
  54.          " nur die Sprachen anwählen, die sie benötigen"
  55.          " Haken Sie also einfach die Sprachen ab, die Sie"
  56.          " Ihrem System zugänglich machen wollen."
  57.           @askoptions-help
  58. ))
  59.  
  60. (set #BoulderDäsh-Docs "\nWelche Anleitungs- und Informationsdateien wollen Sie installieren ?")
  61.  
  62. (set #BoulderDäsh-Exit "\nBoulderDäsh installaliert !!")
  63.  
  64.  
  65. ))
  66.  
  67. ;=============================================================================
  68. ; English strings
  69.  
  70. (if (<> @language "deutsch")
  71. (
  72. (set default_lang 4)
  73.  
  74. (set #bad-kick "You must have at least Workbench 2.0+")
  75.  
  76. (set #BoulderDäsh-InstallMsg
  77. (cat "\n\BoulderDäsh installation script.\n"
  78.         "This script installs BoulderDäsh on your Amiga.\n\n"
  79.         "Read the DOK-file for more information\n"
  80.         " on the distribution of BoulderDäsh.\n\n"
  81.         "BoulderDäsh © 1995 Guido Mersmann\n"
  82.         "All rights reserved."
  83. ))
  84.  
  85. (set #BoulderDäsh-Where
  86. (cat "Where would you like to install BoulderDäsh ?\n"
  87.         "(A drawer will be created)"
  88. ))
  89.  
  90. (set #BoulderDäsh-Update
  91. (cat "\nA BoulderDäsh drawer does already exist in the selected "
  92.         " directory. By selecting \"Proceed\", you"
  93.         " indicate that you want to update the BoulderDäsh"
  94.         " installation with the most recent version.\n"
  95.         "Several BoulderDäsh specific files will be overwritten!"
  96. ))
  97.  
  98. (set #BoulderDäsh-copying-Main          "Copying boulderDäsh to ...BoulderDäsh/...")
  99. (set #BoulderDäsh_copying-Catalogs      "Copying catalogs to ...BoulderDäsh/Locale/...")
  100. (set #BoulderDäsh-copying-Caves "\nCopying caves to ...BoulderDäsh/Caves/...")
  101. (set #BoulderDäsh-copying-Games "\nCopying games to ...BoulderDäsh/Games/...")
  102. (set #BoulderDäsh-copying-Scores "\nCopying scores to ...BoulderDäsh/Scores/...")
  103. (set #BoulderDäsh-copying-Graphics "\nCopying graphics to ...BoulderDäsh/Graphics/...")
  104.  
  105. (set #BoulderDäsh-Language "\nWhich languages should be installed ?")
  106. (set #BoulderDäsh-Language-help
  107. (cat "\nThe Amiga can be operated in many different"
  108.           " languages."
  109.           "To reduce the amount of space consumed by the"
  110.           " language files, you can select to have only the"
  111.           " files of specific languages copied.\n\n"
  112.           "Simply check the boxes of the languages you wish"
  113.           " to have available on your system.\n\n"
  114.           @askoptions-help
  115. ))
  116.  
  117. (set #BoulderDäsh-Docs "\nWhich text files should be installed in \"BoulderDäsh:Docs\" ?")
  118.  
  119.  
  120.  
  121. (set #BoulderDäsh-Exit "\nBoulderDäsh installed !!")
  122.  
  123.  
  124. ))
  125. ;=============================================================================
  126.  
  127. (set @default-dest "")
  128.  
  129. ; erst sichergehen, daß Workbench 37 drinn ist
  130. (if (< (/ (getversion) 65536) 37)
  131. (
  132.   (abort #bad-kick)
  133. ))
  134.  
  135.  
  136. (message #install-msg)
  137.  
  138. (welcome)
  139.  
  140.         (set @default-dest "SYS:")
  141.  
  142. (set BoulderDäshdestdir
  143.         (tackon
  144.                 (askdir
  145.                         (prompt #BoulderDäsh-Where)
  146.                         (help @askdir-help)
  147.                         (default @default-dest)
  148.                 )
  149.                 "BoulderDäsh"
  150.         )
  151. )
  152.  
  153. (
  154.         (makedir BoulderDäshdestdir
  155.                 (help @makedir-help)
  156.                 (infos)
  157.         )
  158. )
  159. (set @default-dest BoulderDäshdestdir)
  160.  
  161. ;***** Delete old Data and Prefs
  162. (delete (tackon BoulderDäshdestdir "BoulderDäsh.prefs"))
  163. ;***** Create dirs
  164. (complete 20)
  165.  
  166. (makedir (tackon BoulderDäshdestdir "Catalogs")(infos))
  167. (makedir (tackon BoulderDäshdestdir "Games")(infos))
  168. (makedir (tackon BoulderDäshdestdir "Scores")(infos))
  169. (makedir (tackon BoulderDäshdestdir "Caves")(infos))
  170. (makedir (tackon BoulderDäshdestdir "Graphics")(infos))
  171. (makedir (tackon BoulderDäshdestdir "Docs")(infos))
  172. (makedir (tackon BoulderDäshdestdir "Docs/Deutsch")(infos))
  173.  
  174. ;***** BoulderDäsh_Main
  175. (complete 30)
  176.  
  177. (copyfiles
  178.         (prompt "\n" #BoulderDäsh-copying-Main)
  179.         (source (tackon SourceRoot "BoulderDäsh")(infos))
  180.         (dest BoulderDäshdestdir)
  181.         (help @copyfiles-help)
  182.         (optional <force>)
  183.         (infos)
  184. )
  185. ;***** Games
  186. (complete 40)
  187.  
  188. (copyfiles
  189.         (prompt "\n" #BoulderDäsh-copying-Games)
  190.         (source (tackon SourceRoot "games/"))
  191.         (dest (tackon BoulderDäshdestdir "games/"))
  192.         (help @copyfiles-help)
  193.         (optional <force>)
  194.         (all)
  195. ;        (infos)
  196. )
  197. ;***** Scores
  198. (complete 50)
  199.  
  200. (copyfiles
  201.         (prompt "\n" #BoulderDäsh-copying-Scores)
  202.         (source (tackon SourceRoot "Scores/"))
  203.         (dest (tackon BoulderDäshdestdir "Scores/"))
  204.         (help @copyfiles-help)
  205.         (optional <force>)
  206.         (all)
  207. ;        (infos)
  208. )
  209. ;***** Caves
  210. (complete 60)
  211.  
  212. (copyfiles
  213.         (prompt "\n" #BoulderDäsh-copying-Caves)
  214.         (source (tackon SourceRoot "Caves"))
  215.         (dest (tackon BoulderDäshdestdir "Caves"))
  216.         (help @copyfiles-help)
  217.         (optional <force>)
  218.         (all)
  219. ;        (infos)
  220. )
  221. ;***** Graphics
  222. (complete 70)
  223.  
  224. (copyfiles
  225.         (prompt "\n" #BoulderDäsh-copying-Graphics)
  226.         (source (tackon SourceRoot "graphics/"))
  227.         (dest (tackon BoulderDäshdestdir "graphics/"))
  228.         (help @copyfiles-help)
  229.         (optional <force>)
  230.         (all)
  231. ;        (infos)
  232. )
  233. ;***** Catalogs
  234. (complete 80)
  235. (set lang (askoptions
  236.                 (prompt #BoulderDäsh-Language)
  237.                 (help #BoulderDäsh-Language-help)
  238.                 (choices
  239.                         "English"
  240.                         "Deutsch")
  241.                 (default -1)
  242.         )
  243. )
  244.  
  245. (set n 0)
  246. (while (< n 2)
  247.         (set language (select n "english" "deutsch"))
  248.         (
  249.                 (if (IN lang n)
  250.                 (
  251.                         (makedir (cat (tackon BoulderDäshdestdir "Catalogs/") language))
  252.                         (copyfiles
  253.                                 (source (cat (tackon SourceRoot "Catalogs/") language))
  254.                                 (dest (cat (tackon BoulderDäshdestdir "Catalogs/") language))
  255.                                 (help @copyfiles-help)
  256.                                 (all)
  257.                         )
  258.                 )
  259.                 )
  260.         )
  261. (set n (+ n 1))
  262. )
  263.  
  264. ;***** DOCS
  265. (complete 90)
  266. (set docs (askoptions
  267.                         (prompt #BoulderDäsh-Docs)
  268.                         (help @askoptions-help)
  269.                         (choices
  270.                         "Guide"
  271.                             "ASCII"
  272.  
  273.                                 )
  274.                         (default -1)
  275.                   )
  276. )
  277.  
  278. (set n 0)
  279. (while (< n 2)
  280.         (set documents (select n "BoulderDäsh.Guide" "BoulderDäsh.Dok"))
  281.         (
  282.                 (if (IN docs n)
  283.                 (
  284.                         (copyfiles
  285.                                 (source (cat (tackon SourceRoot "Docs/Deutsch/") documents))
  286.                                 (dest (tackon BoulderDäshdestdir "Docs/Deutsch/"))
  287.                                 (help @copyfiles-help)
  288. ;                               (infos)
  289.                         )
  290.                 )
  291.                 )
  292.         )
  293. (set n (+ n 1))
  294. )
  295. ;***** KEYFILE
  296. (complete 91)
  297.  
  298. ;***** Startup-Sequence
  299. (complete 95)
  300.  
  301. ;***** Prefs
  302.  
  303. ;***** Finished
  304. (complete 100)
  305.  
  306. (exit #BoulderDäsh-exit)
  307.